home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00170_Mixer- Kill Loop.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  562 b   |  23 lines
  1. on mouseUp
  2.   global gLoopScale, gLoopKill
  3.   puppetSprite(17, 1)
  4.   if gLoopKill = 0 then
  5.     repeat with i = 4 to 11
  6.       set the volume of sound i to 0
  7.     end repeat
  8.     set the volume of sound 13 to gLoopScale
  9.     set the foreColor of sprite 17 to 226
  10.     set gLoopKill to 1
  11.   else
  12.     if gLoopKill = 1 then
  13.       repeat with i = 4 to 11
  14.         set the volume of sound i to gLoopScale
  15.       end repeat
  16.       set the volume of sound 13 to gLoopScale
  17.       set the foreColor of sprite 17 to 255
  18.       set gLoopKill to 0
  19.     end if
  20.   end if
  21.   updateStage()
  22. end
  23.